home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / epp / sources / programmers / showmap.e < prev   
Text File  |  1980-01-05  |  921b  |  25 lines
  1. PROC main() HANDLE
  2. /* EPP must have already been run with the -m option */
  3. /* in order for this program to show anything.       */
  4.   DEF fh=NIL, index:PTR TO INT, moduleName[30]:STRING, exitmsg, interrupted=FALSE
  5.   '$VER: ShowMap 1.4a (3.13.94)'
  6.   index:=[0, 0, 0]:INT
  7.   IF (fh:=Open('T:epp.map', OLDFILE))=NIL THEN Raise("FILO")
  8.   REPEAT
  9.     IF Read(fh, index, 6)<6 THEN Raise("FILR")
  10.     IF CtrlC() THEN interrupted:=TRUE
  11.     IF interrupted=FALSE THEN WriteF('moduleId=\d global=\d local=\d\n', index[0], index[1], index[2])
  12.   UNTIL index[0]=0
  13.   IF interrupted THEN WriteF('*** Index display interrupted\n')
  14.   WHILE ReadStr(fh, moduleName)>-1 DO WriteF('\s\n', moduleName)
  15.   Close(fh)
  16. EXCEPT
  17.   IF fh THEN Close(fh)
  18.   SELECT exception
  19.     CASE "FILO"; exitmsg:='Can\at open file'
  20.     CASE "FILR"; exitmsg:='Error reading file'
  21.     DEFAULT;     exitmsg:='Oof!  What hit me?'
  22.   ENDSELECT
  23.   WriteF('\s\n', exitmsg)
  24. ENDPROC
  25.